object LoopManager: TLoopManager Left = 268 Top = 193 BorderIcons = [] BorderStyle = bsSingle Caption = 'Sample Control Unit' ClientHeight = 313 ClientWidth = 561 Color = 4874571 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter Scaled = False OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object loopBackPic: TImage Left = 6 Top = 8 Width = 546 Height = 254 AutoSize = True Picture.Data = {} end object sizeLabel: TLabel Left = 371 Top = 67 Width = 9 Height = 14 Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object freqLabel: TLabel Left = 476 Top = 67 Width = 9 Height = 14 Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object sbLoop: TSpeedButton Left = 356 Top = 103 Width = 44 Height = 17 Hint = 'Make this sound automatically fit into 1 measure' Flat = True OnClick = sbLoopClick end object sbStream: TSpeedButton Left = 356 Top = 120 Width = 44 Height = 17 Hint = 'Stream this sound at an individual pitch' Flat = True OnClick = sbLoopClick end object sbPatch: TSpeedButton Left = 356 Top = 137 Width = 44 Height = 17 Hint = 'Use this sound with the RaGE or BLiSS units' Flat = True OnClick = sbLoopClick end object WAV_btn: TImage Left = 12 Top = 40 Width = 74 Height = 23 Hint = 'Import a WAV file from disk' AutoSize = True Picture.Data = {} OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object RaGE_btn: TImage Left = 12 Top = 72 Width = 74 Height = 23 Hint = 'Create a new drumcomputer pattern' AutoSize = True Picture.Data = {} OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object BLiSS_btn: TImage Left = 12 Top = 105 Width = 74 Height = 23 Hint = 'Create a new bassline pattern' AutoSize = True Picture.Data = {} OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object external_btn: TImage Left = 12 Top = 138 Width = 74 Height = 23 Hint = 'Import sounds using a plugin or external instrument' AutoSize = True Picture.Data = {} OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object Play_Btn: TImage Left = 462 Top = 101 Width = 74 Height = 23 AutoSize = True Picture.Data = {} OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object edit_btn: TImage Left = 462 Top = 132 Width = 74 Height = 23 Hint = 'Edit this sound with a plugin or an instrument' AutoSize = True Picture.Data = {} OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object replace_btn: TImage Left = 462 Top = 164 Width = 74 Height = 23 Hint = 'Replace this sound with a WAV file from disk' AutoSize = True Picture.Data = {} OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object delete_btn: TImage Left = 462 Top = 195 Width = 74 Height = 23 Hint = 'Delete this sound from your song' AutoSize = True Picture.Data = {} OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object dupe_Btn: TImage Left = 462 Top = 226 Width = 74 Height = 23 Hint = 'Make a copy of this sound' AutoSize = True Picture.Data = {} OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object sourceImg: TImage Left = 343 Top = 199 Width = 94 Height = 12 Hint = 'Plugin-data is included with this sound' AutoSize = True Picture.Data = {} Visible = False end object typeLed: TImage Left = 343 Top = 106 Width = 11 Height = 10 AutoSize = True Picture.Data = {} end object mobiusBtn_down: TImage Left = 345 Top = 226 Width = 101 Height = 23 AutoSize = True Picture.Data = {} Visible = False end object mobiusBtn_Up: TImage Left = 345 Top = 226 Width = 101 Height = 23 Hint = 'Edit this sound with M�bius' AutoSize = True Picture.Data = {} Visible = False OnMouseDown = WAV_btnMouseDown OnMouseUp = WAV_btnMouseUp end object Done: TButton Left = 448 Top = 280 Width = 105 Height = 25 Cancel = True Caption = 'Done' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 0 OnClick = DoneClick end object LoopNames: TListBox Left = 97 Top = 12 Width = 231 Height = 217 BorderStyle = bsNone Color = 11255468 ExtendedSelect = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ItemHeight = 15 Items.Strings = ( '...') ParentFont = False TabOrder = 1 OnClick = LoopNamesClick OnDblClick = LoopNamesDblClick OnEnter = LoopNamesClick OnExit = LoopNamesClick end object LoopNameBox: TEdit Left = 350 Top = 39 Width = 185 Height = 17 BorderStyle = bsNone Color = 11255468 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 OnChange = LoopNameBoxChange end object hidePatches: TCheckBox Left = 232 Top = 264 Width = 89 Height = 17 Hint = 'Make all "patch" sounds in the list invisible' Alignment = taLeftJustify Caption = 'Hide patches' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = hidePatchesClick end object cancelBtn: TButton Left = 392 Top = 280 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 4 OnClick = cancelBtnClick end object okBtn: TButton Left = 478 Top = 280 Width = 75 Height = 25 Caption = 'Ok' Default = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 5 OnClick = cancelBtnClick end object hidePlugin: TPanel Left = 8 Top = 134 Width = 81 Height = 33 BevelOuter = bvNone Color = 4874571 TabOrder = 6 end object hidePlay: TPanel Left = 460 Top = 96 Width = 81 Height = 33 BevelOuter = bvNone Color = 4874571 TabOrder = 7 end object builtin: TCheckBox Left = 232 Top = 240 Width = 89 Height = 17 Hint = 'Make all built-in sounds in the list invisible' Alignment = taLeftJustify Caption = 'Hide built-in' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 8 OnClick = hidePatchesClick end object HideRaGEBLiSS: TCheckBox Left = 208 Top = 288 Width = 113 Height = 17 Hint = 'Make all RaGE & BLiSS patterns in the list invisible' Alignment = taLeftJustify Caption = 'Hide RaGE / BLiSS' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 9 OnClick = hidePatchesClick end object ImportDialog: TOpenDialog Filter = 'All known filetypes|*.wav;*.raw;*.smp;*.pcm;*.sam;*.ts|Wave-file' + 's (*.wav)|*.wav|Raw sample data (*.raw)|*.raw|SMP-Files (*.smp)|' + '*.smp|Raw samples (*.sam)|*.sam|Tuareg Sample (*.ts)|*.ts' Title = 'Import a new sample' Left = 32 Top = 200 end end